home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / access / db2bas.zip / FTESTDIC.FRM < prev    next >
Text File  |  1994-10-04  |  5KB  |  169 lines
  1. VERSION 2.00
  2. Begin Form fTestDict 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "MDB INI DB Maker"
  5.    ClientHeight    =   2790
  6.    ClientLeft      =   2130
  7.    ClientTop       =   1965
  8.    ClientWidth     =   4335
  9.    Height          =   3195
  10.    Left            =   2070
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2790
  13.    ScaleWidth      =   4335
  14.    Top             =   1620
  15.    Width           =   4455
  16.    Begin HScrollBar hsProgress 
  17.       Enabled         =   0   'False
  18.       Height          =   255
  19.       Left            =   180
  20.       TabIndex        =   8
  21.       Top             =   720
  22.       Visible         =   0   'False
  23.       Width           =   4035
  24.    End
  25.    Begin TextBox txtDBName 
  26.       Height          =   315
  27.       Left            =   1140
  28.       TabIndex        =   5
  29.       Tag             =   "ol"
  30.       Top             =   1620
  31.       Width           =   2415
  32.    End
  33.    Begin CommandButton bWo 
  34.       Cancel          =   -1  'True
  35.       Caption         =   "&Wo"
  36.       Height          =   375
  37.       Left            =   2220
  38.       TabIndex        =   7
  39.       Top             =   2220
  40.       Width           =   915
  41.    End
  42.    Begin CommandButton bGo 
  43.       Caption         =   "&Go"
  44.       Default         =   -1  'True
  45.       Height          =   375
  46.       Left            =   1140
  47.       TabIndex        =   6
  48.       Top             =   2220
  49.       Width           =   915
  50.    End
  51.    Begin CommandButton bPickIni 
  52.       Caption         =   "&Pick"
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "MS Sans Serif"
  56.       FontSize        =   8.25
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   315
  60.       Left            =   3600
  61.       TabIndex        =   3
  62.       Top             =   1140
  63.       Width           =   615
  64.    End
  65.    Begin CommonDialog cmdFile 
  66.       CancelError     =   -1  'True
  67.       DefaultExt      =   "INI"
  68.       DialogTitle     =   "Select INI File"
  69.       Filter          =   "INI Files (*.INI)|*.INI"
  70.       FilterIndex     =   1
  71.       Flags           =   4096
  72.       Left            =   3600
  73.       Top             =   2100
  74.    End
  75.    Begin TextBox txtIniFile 
  76.       Height          =   315
  77.       Left            =   1140
  78.       TabIndex        =   2
  79.       Tag             =   "ol"
  80.       Text            =   "DB.INI"
  81.       Top             =   1140
  82.       Width           =   2415
  83.    End
  84.    Begin Label Label3 
  85.       Alignment       =   1  'Right Justify
  86.       BackStyle       =   0  'Transparent
  87.       Caption         =   "&MDB Filename"
  88.       FontBold        =   0   'False
  89.       FontItalic      =   0   'False
  90.       FontName        =   "MS Sans Serif"
  91.       FontSize        =   8.25
  92.       FontStrikethru  =   0   'False
  93.       FontUnderline   =   0   'False
  94.       Height          =   255
  95.       Left            =   60
  96.       TabIndex        =   4
  97.       Top             =   1680
  98.       Width           =   1035
  99.    End
  100.    Begin Label Label2 
  101.       Alignment       =   1  'Right Justify
  102.       BackStyle       =   0  'Transparent
  103.       Caption         =   "&INI File"
  104.       FontBold        =   0   'False
  105.       FontItalic      =   0   'False
  106.       FontName        =   "MS Sans Serif"
  107.       FontSize        =   8.25
  108.       FontStrikethru  =   0   'False
  109.       FontUnderline   =   0   'False
  110.       Height          =   255
  111.       Left            =   540
  112.       TabIndex        =   1
  113.       Top             =   1200
  114.       Width           =   555
  115.    End
  116.    Begin Label Label1 
  117.       BorderStyle     =   1  'Fixed Single
  118.       Caption         =   "Label1"
  119.       Height          =   675
  120.       Left            =   180
  121.       TabIndex        =   0
  122.       Tag             =   "ol"
  123.       Top             =   60
  124.       Width           =   4035
  125.    End
  126. End
  127. Option Explicit
  128.  
  129. Sub bGo_Click ()
  130.     Dim ret As Integer
  131.     ret = dictCreate(txtIniFile.Text, txtDBName.Text)
  132. End Sub
  133.  
  134. Sub bPickIni_Click ()
  135.     On Error GoTo CANCEL
  136.     cmdFile.Action = 1
  137.     txtIniFile = cmdFile.Filename
  138.  
  139. CANCEL:
  140.     Exit Sub
  141. End Sub
  142.  
  143. Sub bWo_Click ()
  144.     If MsgBox("Are you sure you want to quit?", MB_YESNO, "MDB INI Maker") = IDYES Then
  145.     End
  146.     End If
  147. End Sub
  148.  
  149. Sub Form_Load ()
  150.     Dim cLbl As String
  151.  
  152.     cLbl = "This utility creates a Access database from an MDB->BAS INI File"
  153.     Label1.Caption = cLbl
  154.  
  155. End Sub
  156.  
  157. Sub Form_Paint ()
  158.     outlines Me
  159. End Sub
  160.  
  161. Sub txtDBName_KeyPress (KeyAscii As Integer)
  162.     KeyAscii = Asc(UCase(Chr(KeyAscii)))
  163. End Sub
  164.  
  165. Sub txtIniFile_KeyPress (KeyAscii As Integer)
  166.     KeyAscii = Asc(UCase(Chr(KeyAscii)))
  167. End Sub
  168.  
  169.